home *** CD-ROM | disk | FTP | other *** search
/ Sports Illustrated for Kids - Awesome Athletes! / Sports Illustrated for Kids - Awesome Athletes!.iso / hf.dir / 00096_FindHotText.ls < prev    next >
Encoding:
Text File  |  1996-04-19  |  1.3 KB  |  52 lines
  1. on FindHotText
  2.   repeat with vI = 1 to 300
  3.     if vI < 10 then
  4.       set vAth to "00" & vI
  5.     else
  6.       if vI < 100 then
  7.         set vAth to "0" & vI
  8.       else
  9.         set vAth to vI
  10.       end if
  11.     end if
  12.     set vPre to "BIO" & vAth
  13.     repeat with vPage = 1 to 10
  14.       FindHotTextInCast(vPre & vPage)
  15.     end repeat
  16.     set vPre to "SIDE" & vAth
  17.     repeat with vside = 1 to 3
  18.       repeat with vPage = 1 to 5
  19.         repeat with vSize = 1 to 3
  20.           FindHotTextInCast(vPre & vside & vPage & vSize)
  21.         end repeat
  22.       end repeat
  23.     end repeat
  24.   end repeat
  25. end
  26.  
  27. on FindHotTextInCast aCastName
  28.   set aCast to the number of cast aCastName
  29.   if aCast < 1 then
  30.     exit
  31.   end if
  32.   set vWords to the number of words in field aCast
  33.   set vCurrWord to 1
  34.   set vHotText to EMPTY
  35.   repeat while vCurrWord < vWords
  36.     if the foreColor of word vCurrWord of field aCast = 113 then
  37.       repeat while the foreColor of word vCurrWord of field aCast = 113
  38.         set vHotText to vHotText & word vCurrWord of field aCast
  39.         set vCurrWord to vCurrWord + 1
  40.         if vHotText contains "," then
  41.           exit repeat
  42.         end if
  43.       end repeat
  44.       set vHotText to StripChars(vHotText, ",.'()-" & QUOTE)
  45.       put vHotText
  46.       set vHotText to EMPTY
  47.       next repeat
  48.     end if
  49.     set vCurrWord to vCurrWord + 1
  50.   end repeat
  51. end
  52.